home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / APL90 / APL_PROGS / GrafGame < prev    next >
Encoding:
Text File  |  1987-04-03  |  735 b   |  44 lines  |  [TEXT/APL9]
  1.  
  2. æ  87 3 19 20 37 27  APLTMP
  3.  
  4.  
  5.  
  6.     ã JEU;OM;NM
  7. [1]    æ Some game : draw and hide picture...
  8. [2]    æ First create a picture
  9. [3]   MAKEPIC
  10. [4]   ôIMASK 0
  11. [5]   SCREEN 1
  12. [6]   CURSOR 0
  13. [7]   ôDRAWPIC OMó0 0
  14. [8]    æ The loop
  15. [9]  LP: ò(~BUTTON)/LP
  16. [10]  ò(0>NMóMOUSE)/FIN
  17. [11]  ò(3>â/ñOM-NM)/LP
  18. [12]   æ ERASERC OM,OM+100
  19. [13]  ôDRAWPIC OMóNM
  20. [14]  òLP
  21. [15]   æ  End : redisplays screen
  22. [16] FIN: SCREEN 2
  23.     ã 
  24.  
  25.  
  26.  
  27.     ã MAKEPIC;V;PFR;M
  28. [1]    æ Create some picture as entry éPICTé 0
  29. [2]   PFRó0 0 100 100
  30. [3]   CLIPRECT PFR
  31. [4]   ôOPENPICTURE PFR
  32. [5]   INVERTRC PFR
  33. [6]   Vó5£Ö9
  34. [7]   Mó≠ëV 0(100-V)(10Ç100)
  35. [8]   INVERTOV PFR,,M
  36. [9]   Mó≠ë0 V(10Ç100)(100-V)
  37. [10]  INVERTOV M
  38. [11]  ôCLOSEPICTURE
  39. [12]  CLIPRECT 0 0 800 800
  40.     ã 
  41.  
  42.  
  43.  
  44.